let mat_adj1 = [|[|0;1;1;1|];[|1;0;1;0|];[|1;1;0;1|];[|1;0;1;0|]|];;

let liste_adj1 = [|[1;2;3];[0;2];[0;1;3];[0;2]|];;

let mat_adj2 = [|[|0;1;0;1;0|];[|0;0;0;0;0|];[|0;0;0;0;1|];[|0;1;1;0;1|];[|0;0;0;0;0|]|];;

let liste_adj2 = [|[1;3];[];[4];[1;2;4];[]|];;